home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Kick Pascal v2.10 d1.adf / INCLUDE / clist.lib < prev    next >
Text File  |  1990-11-01  |  1KB  |  30 lines
  1. {$if not def CLIST_LIB }
  2. Const CLIST_LIB=0;
  3. Var CListBase:Ptr;
  4. Library CListBase:
  5. -30: Function InitCLPool(a0:Ptr; d0:Long):Long;
  6. -36: Function AllocCList(a1:Ptr):Long;
  7. -42: Procedure FreeCList(a0:Ptr);
  8. -48: Procedure FlushCList(a0:Ptr);
  9. -54: Function SizeCList(a0:Ptr):Long;
  10. -60: Function PutCLChar(a0:Ptr; d0:Byte):Long;
  11. -66: Function GetCLChar(a0:Ptr):Long;
  12. -72: Function UnGetCLChar(a0:Ptr; d0:Byte):Long;
  13. -78: Function UnPutCLChar(a0:Ptr):LOng;
  14. -84: Function PutCLWord(a0:Ptr; d0:Word):Long;
  15. -90: Function GetCLWord(a0:Ptr):Long;
  16. -96: Function UnGetCLWord(a0:Ptr; d0:Word):Long;
  17. -102:Function UnPutCLWord(a0:Ptr):Long;
  18. -108:Function PutCLBuf(a0,a1:Ptr; d0:Long):Long;
  19. -114:Function GetCLBuf(a0,a1:Ptr; d0:Long):Long;
  20. -120:Function MarkCList(a0:Ptr; d0:Long):Long;
  21. -126:Function IncrCLMark(a0:Ptr; d0:Long):Long;
  22. -132:Function PeekCLMark(a0:Ptr):integer;
  23. -138:Function SplitCList(a0:Ptr):Long;
  24. -144:Function CopyCList(a0:Ptr):Long;
  25. -150:Function SubCList(a0:Ptr; d0,d1:Long):Long;
  26. -156:Function ConcatCList(a0,a1:Ptr):Long;
  27. End;
  28. {$endif }
  29.  
  30.